How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/submenu/00297_quitbox1.ls

Text File | 1995-03-29 | 680 b | 28 lines

on mouseDown
  set castigate to the number of cast "quitbox2"
  set the castNum of sprite the clickOn to castigate
  startTimer()
  set tstep to 10
  puppetSound("Sound 6")
  repeat while the mouseDown
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & ttime + 1)
      updateStage()
    end if
  end repeat
  startTimer()
  set ttime to 0
  repeat while ttime < 4
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & 4 - ttime)
      updateStage()
    end if
  end repeat
end

on mouseUp
  go(1, "submenu")
end